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**F ILE**1D**COBPROLOG 


=e 


ccccccce 000000 BBBB8B8B PPPPPPPP RRRRRRRR 000000 LL 000000 GGGGGGGG 
cccccccc 000000 688888888 PPPPPPPP RRRRRRRR 000000 LL 000000 GGGGGGGG 
cc 00 00 88 BB PP PP RR RR 00 oo LL 00 00 GG 
cc 00 00 88 BB PP PP RR RR 00 oO LL 00 00 GG 
cc 00 00 88 BB PP PP RR RR 00 oO LL 00 00 GG 
cc 00 00 88 BB PP PP RR RR 00 oo LL 00 00 GG 
cc 00 00 88888868 PPPPPPPP RRRRRRRR 00 oo LL 00 00 GG 
cc 00 00 88888888 PPPPPPPP RRRRRRRR 00 oO LL 00 00 GG 
cc 00 00 68 BB PP RR RR 00 oO LL 00 00 GG GGGGGG 
cc oc 0O 88 BB PP RR RR 00 oO LL 00 00 GG G6GG6GGG 
cc 00 00 8B BB PP RR RR 00 oO LL 00 00 GG GG eeee 
cc 00 00 88 BB PP RR RR 00 oO LL 00 00 GG GG coe 
cccccccc 000000 BBBBBBBB PP RR RR 000000 LLLLLLLLLL 000000 GGGGGG eee 
cccccccc 000000 BBBBBBBB PP RR RR 000000 LLLLLLLLLL 000000 GGGGGG cece 
RRRRRRRR EEEEEEEEEE 00000 
RRRRRRRR EEEEEEEEEE QaQQaa 
RR RR EE QQ 
RR RR EE QQ 
RR RR EE QQ QQ 
RR RR EE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RRRRRRRR EEEEEEEE QQ QQ 
RR RR EE Qo aa QQ 
RR RR EE Qa aa QQ 
RR RR EE QQ QQ 
RR RR EE aa QQ 
RR RR EEEEEEEEEE QQQQ QQ 
RR RR EEEEEEEEEE QaQQ QQ 
| 
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i" 
i Pro 
i Fal 
i 
i 


i eeeeeeererereereererenereeeeererereeereeneeeneneeeenereeeereeeeeeeeeeeeeeeee 
ie 


ie COPYRIGHT Cc) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie RIGHTS RESERVED. 


ALL 
‘e 
te THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND correo 
te ONLY IN ACCORDANCE WITH THE TE at OF rave” biC os NSE AND WITH THE 

INCLUSION OF iy B yt COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER 
'e COPIES hs yall eh BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'@ OTHER PERSON, TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


+ 
& 
* 
& 
® 
® 
t 
® 
* 
® 
ie TRANSFERRED. * 
ie 
® 
& 
® 
® 
* 
® 
® 
® 
* 


l BLISS REQUIRE file for Run-Time Library COBS Support 
File: COBPROLOG.REQ, Edit: LGB1001" , i 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
os CORPORATION NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


t® DIGITAL ASSUMES NO asta | 


ITY FOR THE USE OR RELIABILITY OF ITS 
t* SOFTWARE ON EQUIPMENT WHICH 


L 
S NOT SUPPLIED BY DIGITAL. 

PITTITITILIIIT LILI LLL LLL LLL TLL LLL iiiiiiiiiiiiiii 
' 

t 

: Edit History: 

1-001 = Created. LGB 16-Jan-1984 


'¢ 
i Bow addressing modes to be used. 


SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 


'¢ 
: Reference precompiled Libraries. 


LIBRARY me Lae og SYSSLIBRARY: STARLET .L32 


LIBRARY LML: SMGL Screen Mana eaent Definitions 
REQUIRE ‘RILIN: rTUBSECT; Ma ros for T 
REQUIRE ‘RTL OBDEF * Unit n 


N: COBDE 
REQUIRE *RTLIN: :STRMACROS' : STR Recreate SSTRSDESCRIPTOR 
'e 
: Declare PSECTs to be used. 


PSECT 
CODE = _COBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, 


COBPROLOG.REQ; 1 


7 om SSING pore. ag Pate ATIV 


)) 
OBSCOBE ( Hi CUTE, SHARE, PIC, 
IT DORE Ese NG hope eMebap ie REL ait i . “i 

= COB (READ, MALIE, NOEXECUTE, NOSHARE, PIC, 


At 
om ae te 1VE)), 
GLOBAL = _COBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, 
ADDRESSING_MODE (LONG_RELATIVE)); 


! End of COBPROLOG.REQ 
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